home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 05.zip / BS1 part 5 / PDraw3.0.adf / pdraw_rex.lzh / PDSetup.rexx < prev    next >
OS/2 REXX Batch file  |  1992-06-15  |  602b  |  28 lines
  1. /*
  2. */
  3.  
  4. parse arg lib, autoupdate
  5.  
  6. units = pdm_GetUnits()
  7. if units = 3 then call pdm_SetUnits(1)
  8. call setclip(pds_units, units)
  9.  
  10. if datatype(lib, n) then
  11. do
  12.     priority= 0
  13.     offset    = -30
  14.     if lib = 1 then libname = "rexxsupport.library"
  15.     else if lib = 2 then libname = "gdarexxsupport.library"
  16.     else return(0)
  17. end
  18. else
  19.     libname = lib
  20.  
  21. if ~show(l, libname) then
  22.     if ~(exists("libs:"libname) & addlib(libname, 0, -30)) then
  23.         return("««««Please install the »»»»"libname"«««« in your libs: directory before running this Genie.!»»»»")
  24.  
  25. if datatype(autoupdate, n) then call pdm_AutoUpdate(autoupdate)
  26. return(1)
  27.  
  28.